Top 10k strings from Calculo de Porticos (1983)(Belltons Informatica)(es).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 VI=K(Q,UN)
   2 V,F;"                                "
   2 G(K(Q,TR))=M
   2 F(K(Q,UN))=M
   2 "Rigidez = ";RG4:
   2 "Rigidez = ";RG3:
   2 "Rigidez = ";RG2:
   2 "Momento = ";M4;" mT.":
   2 "Momento = ";M2;" mT.":
   2 "Coeficiente de Reparto = ";K4:
   2 "Coeficiente de Reparto = ";K3:
   2 "Coeficiente de Reparto = ";K2:
   2 "================================"
   2 "-------------------------------":
   2 "---------------":
   2 "** Pilar Superior----":
   2                                  
   1 W$*100+.5)/100"
   1 VN,F;"Es valida la Seccion":
   1 VN,F;"                           "
   1 VN,F;"                                ":
   1 V,SE;TIPO:
   1 V,NU;"     ":
   1 V,HORI;S(Q);" -"
   1 V,HORI;S(Q);"  -"
   1 V,HORI;"    "
   1 V,F;M$;" = *  cm":
   1 V,F;"h = *  cm.    b = *  cm.        ":
   1 V,F;"h = ";H;" cm.    b = ";E;" cm."
   1 V,F;"a= *.00 m  b= *.00 m  c= *.00 m ":
   1 V,F;"a = *.00 m.      b = *.00 m.    ":
   1 V,F;"a = *.00 m";
   1 V,F;"Tipo-";Q;
   1 V,F;"SE FIJA 
   1 V,F;"P-";CA;"=";W$;"=";X;" T/ml"
   1 V,F;"Num. de Cargas Puntuales = *   ":
   1 V,F;"Nudo Tipo   Biz  Bsu  Bde  Bin  ---- ----   ---  ---  ---  ---"
   1 V,F;"NUMERO DE CARGAS    ":
   1 V,F;"N-";U;" = *.00 T"
   1 V,F;"M= ";X;" mT"
   1 V,F;"Luz de la Viga = *.00 m ":
   1 V,F;"INDICAR LAS CARGAS"
   1 V,F;"- - - - - - CASO-* - - - - - - -";
   1 V,F;"*** VIGA-";Q;" --------------":
   1 V,F;"  N = *.00 T"
   1 V,F;"                 "
   1 V,F;"                               ";
   1 V,F;"                                ":
   1 V,F;"                                                                "
   1 TR,F;"Numero de tipos de Pilares = *  ":
   1 TR,F;"NUMERO DE VIGAS =   ":
   1 TR,F;"NUMERO DE NUDOS =    "
   1 TR,F;" INDICAR EL NOMBRE DEL PORTICO  ";
   1 SI;"h= (cm) b= (cm) Luz= (m)":
   1 SI,DO;"1- RESULTADOS NUDO A NUDO Y"
   1 RGT=RG1+RG
   1 RESTA=Q+UN
   1 QC;"b = *.00 m":
   1 P(Q)=TIPO:
   1 OC,F;"Limite Elastico del Acero       =      Kg/cm":
   1 OC,F;"Calculo del Portico ";P$
   1 OC,CI;"ESFUERZOS FINALES"
   1 NU,DO;"2- SOLO ESFUERZOS FINALES"
   1 NP;" Tipos de Pilares"
   1 Momento Derecho= ";Y(Q);" mT."
   1 MT=Y(K(Q,UN))
   1 MOC)*1.6*100000/(.35*RCH/1.5*DI))^.5+2)/5+.9)*5"
   1 MIZ=Y(K(Q,UN))+M
   1 MDE=X(K(Q,TR))+M
   1 M=-(MDE+MIZ)
   1 M3=-(M2+M4)
   1 Luz = ";OI;" metros"
   1 K(Q,UN)=BI:
   1 K(Q,TR)=BD:
   1 K(Q,DO)=BS
   1 K(Q,CU)=BIN
   1 Impresora 'ZX'
   1 HORI=(Q-RESTA)*CU
   1 F,F;"TIPOS DE NUDO Y BARRAS EN NUDO  ================================"
   1 F,F;"   Luz y Cargas de las Vigas    --------------------------------"
   1 F,F;"    ORDEN DE CALCULO DE NUDOS   --------------------------------"
   1 Cortante Derecho= ";D(Q);" T."
   1 Calc-Port.-E
   1 CI,F;"SE VA A UTILIZAR LA IMPRESORA";
   1 CI,F;"Resistencia Caracteristica del  Hormigon =     Kg/cm2.":
   1 CALCULO DE PORTICOS DE HORMIGON-
   1 C=L(Q)-A-B
   1 ;"NUDO-";Q
   1 ;"Esfuerzos Finales en Vigas":
   1 ;"ELECCION DE SALIDA DE RESULTADOS"
   1 ;"Calculo Momentos Hiperestaticos":
   1 ;"CARACTERISTICAS DE PILARES      ================================"
   1 ;"--------------------------------"
   1 ;"*CORRECTO? (s/n)"
   1 ;"***  Nudo-";Q;" - - - - ":
   1 ;"** Viga-";Q;" - - - - - - -":
   1 ;"** PROGRAMA CARGADO **";
   1 ;"(Maximo 
   1 ;"  CARACTERISTICAS DEL PORTICO   ********************************"
   1 ;"                       "
   1 ;"                        "
   1 ;"                                ";
   1 ;"         
   1 -Jose Luis del Rio Moreno*1983
   1 -J.L.del Rio Moreno":
   1 - Para comenzar el Programa ";
   1 - Para calcular otro Portico";
   1 ,F;"***********************************  CALCULANDO LOS MOMENTOS ***********************************"
   1 ** PASA A CALCULO **
   1 );"-----":
   1 (RG4/RT*100+.5)/100"
   1 (RG4/RGT*100+.5)/100"
   1 (RG3/RT*100+.5)/100"
   1 (RG3/RGT*100+.5)/100"
   1 (RG2/RT*100+.5)/100"
   1 (RG2/RGT*100+.5)/100"
   1 (RG1/RGT*100+.5)/100"
   1 (R(PI)^3*T(PI)/12/O(PI)/10+.5)/100"
   1 (M1*100)/100";" mT.":
   1 (K4*MT*100+.5)/100)"
   1 (K4*M*100+.5)/100"
   1 (K3*M*100+.5)/100"
   1 (K2*MT*100+.5)/100)"
   1 (K2*M*100+.5)/100"
   1 (K1*M*100+.5)/100"
   1 (H(VI)^3*T(PI)/12/O(PI)/10+.5)/100"
   1 (.9*R(PI)^3*T(PI)/12/O(PI)/10+.5)/100"
   1 (.9*H(VI)^3*E(VI)/12/L(VI)/10+.5)/100"
   1 ((Y1+Y5)*100+.5)/100"
   1 ((X1+X5)*100+.5)/100"
   1 ((QB+QD5)*100+.5)/100"
   1 ((QA+QI5)*100+.5)/100"
   1 ((MOC*1.6*100000/(.35*(RCH/1.5)*(DI-2)^2))/5+.9)*5"
   1 ((M+M5)*100+.5)/100"
   1 "luz en m. ";OI:
   1 "la definicion en Memoria"
   1 "h en cm. ";H:
   1 "del Vano = ";M(Q);" mT.":
   1 "cm. ";DI:
   1 "b en cm. ";E:
   1 "a= ";A;" m.  b = ";B;" m.  c = ";C;" m."
   1 "a= ";A;" m.   b = ";B;" m."
   1 "a = ";A;" m.     b = ";B;" m."
   1 "Y5+N*B*A^2/L^2"
   1 "X5+N*A*B^2/L^2"
   1 "Viga izquierda ";BI
   1 "Viga derecha ";BD
   1 "Viga de ";H;" x ";E;" cm."
   1 "V(1)*L/2+V(2)*A(2)^2/(L*2)+V(3)*B(3)*(L-B(3)/2)/L+V(4)*B(4)*(B(4)/2+A(4))/L+V(7)*L/3+V(6)*L/6+V(8)*L/4+V(9)/L"
   1 "V(1)*L/2+V(2)*A(2)*(L-A(2)/2)/L+V(3)*B(3)^2/(2*L)+V(4)*B(4)*(B(4)/2+C(4))/L+V(6)*L/3+V(7)*L/6+V(8)*L/4-V(9)/L"
   1 "Tipos de Nudo y Barras en Nudo"
   1 "Tipo-";Q;"  ";RI;" x ";TI;" cm.":
   1 "Tipo ";TIPO:
   1 "Rigidez = ";RG:
   1 "Resistencia Caracteristica del":
   1 "Pilar superior ";BS
   1 "Pilar inferior ";BIN:
   1 "Pilar Superior = ";J(Q);" mT."
   1 "Pilar Inferior = ";N(Q);" mT":
   1 "P-";CA;"=";W$;"=";X;" T/ml"
   1 "Numero total de Vigas ";NV:
   1 "Numero de tipos de pilar ";NP:
   1 "Numero de nudos ";NN:
   1 "Numero de nudo ";S(Q)
   1 "Numero de cargas ";NCP:
   1 "Numero de Vigas Portico = ";NV
   1 "Numero de Nudos = ";NN:
   1 "Nudo Tipo   Biz  Bsu  Bde  Bin  ---- ----   ---  ---  ---  ---"
   1 "Momentos Finales en Pilares":
   1 "Momento= ";
   1 "Momento en el Centro= ";M(Q);" mT."
   1 "Momento Izquierdo= ";X(Q);" mT.":
   1 "Momento Isostatico en el Centro":
   1 "Momento = ";M3;" mT.":
   1 "MOMENTOS HIPERESTATICOS":
   1 "M= ";X;" mT"
   1 "M(Q)-(X(Q)-Y(Q))/2"
   1 "Luz y Cargas de las Vigas"
   1 "Luz en m.";L
   1 "Luz de la Viga = ";L(Q);" m."
   1 "Limite Elastico del Acero":
   1 "Le = ";LEA;" Kg/cm2."
   1 "Kg/cm2. ";RCH:
   1 "Kg/cm2. ";LEA:
   1 "Izquierdo= ";I(Q);" T.":
   1 "Izquierdo= ";
   1 "Hormigon = ";RCH;" Kg/cm2."
   1 "El Tipo de Nudo se indica segun":
   1 "Derecho= ";D(Q);" T.":
   1 "Derecho = ";
   1 "Cortante Izquierdo= ";I(Q);" T.":
   1 "Carga puntual-";U;" = ";N;" Toneladas"
   1 "Carga en T. ";N:
   1 "Carga Puntual = ";N;" Toneladas"
   1 "Caracteristicas de Pilares"
   1 "Canto en cm. ";RI:
   1 "Calculo del Portico ";P$
   1 "CORTANTES ISOSTATICOS":
   1 "Bsu = Pilar Superior"
   1 "Biz = Viga Izquierda":
   1 "Bin= Pilar Inferior"
   1 "Bde = Viga Derecha":
   1 "Ancho en cm. ";TI:
   1 "================================="
   1 "================================":
   1 "3");"----":
   1 "27";"     ":
   1 "18";NN;"  "
   1 "17";"     ":
   1 "16";" = ";NC
   1 "16";"                "
   1 "-------------------------":
   1 "*** VIGA-";Q;" ---------------"
   1 "*** Nudo-";Q;" -------------":
   1 "** Viga-";VI;"----":
   1 "** Viga-";K(Q,1
   1 "** Viga-";K(Q,
   1 "** Pilar Inferior----":
   1 "** Pilar Inferior ----":
   1 "* * * Carga Tipo-";CA;" - - - - - -"
   1  Final de Calculo del portico "
   1  Caracteres)"
   1                ":